home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / bpinitvardemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  273 b   |  12 lines
  1. program BPInitVarDemo;
  2. (*$W no-field-name-problem*) (* avoid a warning by GPC *)
  3. const
  4.   A : Integer = 7;
  5.   B : array [1 .. 3] of Char = ('F', 'o', 'o');
  6.   C : array [1 .. 3] of Char = 'Bar';
  7.   Foo : record
  8.     x, y : Integer;
  9.   end = (x : 3; y : 4);
  10. begin
  11. end.
  12.